The Cartoon Guide to Physics/The Cartoon Guide to Physics.iso/pc/physdata/shared.dir/00559_scroll.ls

Text File | 1995-09-05 | 600 b | 21 lines

on mouseDown
  global StartLine, EndLine
  if the mouseV > 367 then
    if the number of lines in field "termpath" > (EndLine + 1) then
      puppetSound("Click")
      set EndLine to EndLine + 1
      set StartLine to StartLine + 1
      put line StartLine to EndLine of field "termPath" into field "path"
    end if
  else
    if the mouseV <= 360 then
      if StartLine <> 1 then
        puppetSound("Click")
        set EndLine to EndLine - 1
        set StartLine to StartLine - 1
        put line StartLine to EndLine of field "termPath" into field "path"
      end if
    end if
  end if
end